Android登录界面源码delphi xe10

procedure Tfmbody.InitFrame();
begin
  {fmapp := Tfmapp.Create(self);
  fmapp.Parent := TabItem1;
  fmapp.Align := TAlignLayout.Client;

  fmmsg := Tfmmsg.Create(self);
  fmmsg.Parent := TabItem2;
  fmmsg.Align := TAlignLayout.Client;

  fmtel := Tfmtel.Create(self);
  fmtel.Parent := TabItem3;
  fmtel.Align := TAlignLayout.Client;

  fmsetting := Tfmsetting.Create(self);
  fmsetting.Parent := TabItem4;
  fmsetting.Align := TAlignLayout.Client; }
end;

procedure Tfmbody.UnInitFrame();
begin
  {fmapp.DisposeOf;
  fmmsg.DisposeOf;
  fmtel.DisposeOf;
  fmsetting.DisposeOf; }
end;

end.